home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / comm / mail / ems1_0_exec.lha / Rexx / Automaint.ems < prev    next >
Text File  |  1993-06-01  |  558b  |  36 lines
  1. /* AutoMaint.ems */
  2.  
  3. options results
  4. signal on error
  5. signal on syntax
  6.  
  7. parse arg areas
  8.  
  9. if( ~show( 'l', "ems_rexx.library" ) ) then
  10. do
  11.    if( ~addlib( "ems_rexx.library", 0, -30, 0 ) )then
  12.    do
  13.       say "Could not open ems_rexx.library"
  14.       exit 10
  15.    end
  16. end
  17.  
  18. if areas = '' then areas = '#?'
  19.  
  20. call EMS_Database_Automaint( areas, 'MSG' )
  21.  
  22. call EMS_FreeScriptData()
  23. exit 0
  24.  
  25. error:
  26. syntax:
  27.  
  28. error_text = EMS_LastError()
  29.  
  30. if error_text = '' then error_text = rc ErrorText( rc )
  31.  
  32. say '| ***BREAK: error at' sigl error_text
  33.  
  34. call EMS_FreeScriptData()
  35. exit rc
  36.